﻿Public Class FrmMainmenu


    Private Sub btnPerson_Click(sender As Object, e As EventArgs) Handles btnPerson.Click
        Dim frm As New frmManagerPerson()
        frm.ShowDialog()
    End Sub

    Private Sub btnEquip_Click(sender As Object, e As EventArgs) Handles btnEquip.Click
        Dim frm As New frmManagerEquipment()
        frm.ShowDialog()
    End Sub

    Private Sub btnWiden_Click(sender As Object, e As EventArgs) Handles btnWiden.Click
        Dim frm As New frmBorrow()
        frm.ShowDialog()
    End Sub

    Private Sub FrmMainmenu_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
        Application.Exit()
    End Sub

    Private Sub FrmMainmenu_Activated(sender As Object, e As EventArgs) Handles MyBase.Activated
        Opacity = 1
    End Sub

    Private Sub FrmMainmenu_Deactivate(sender As Object, e As EventArgs) Handles MyBase.Deactivate
        Opacity = 0.5
    End Sub

    Private Sub btnReturn_Click(sender As Object, e As EventArgs) Handles btnReturn.Click
        Dim f As New frmReturn()
        f.ShowDialog()
    End Sub

    Private Sub btnOrder_Click(sender As Object, e As EventArgs) Handles btnOrder.Click
        Dim f As New frmOrder()
        f.ShowDialog()
    End Sub
End Class